home *** CD-ROM | disk | FTP | other *** search
/ The Scorpion King Cardz / The Scorpion King Cardz - Disc 3 - Balthazar.iso / pc / assets / scorp_postcards_send.dxr / 00001_startMovie.ls next >
Encoding:
Text File  |  2002-03-25  |  1.2 KB  |  37 lines
  1. global gEcardSelected, gMusicEnabled, gEmailObj, gEmailResult, gNextMovie, gTheFrom, gTheAddr, gEmailErrorMessage, gTotalEmailToFields, gDefaultEmailReply, gTheBody, oLetters
  2.  
  3. on startMovie
  4.   global gProjWinName
  5.   dosSetFrontWindow(gProjWinName)
  6.   the timeOutList = []
  7.   if gEcardSelected < 1 then
  8.     gEcardSelected = 1
  9.   end if
  10.   gMusicEnabled = 1
  11.   gNextMovie = EMPTY
  12.   oLetters = []
  13.   setUpAudio()
  14.   set the text of field "user_email" to gDefaultEmailReply
  15.   set the text of field "user_body" to "your message"
  16.   set the text of field "rec1" to "friend e-mail 1"
  17.   set the text of field "rec2" to "friend e-mail 2"
  18.   set the text of field "rec3" to "friend e-mail 3"
  19.   set the text of field "rec4" to "friend e-mail 4"
  20.   set the text of field "rec5" to "friend e-mail 5"
  21.   if the platform contains "mac" then
  22.     gEmailObj = new(xtra("DirectEmail"), EMPTY, EMPTY, EMPTY, 136442244)
  23.   else
  24.     gEmailObj = new(xtra("DirectEmail"), EMPTY, EMPTY, EMPTY, 140693184)
  25.   end if
  26.   gEmailResult = EMPTY
  27.   gTheFrom = EMPTY
  28.   gTheAddr = EMPTY
  29.   gTheBody = EMPTY
  30.   gEmailErrorMessage = EMPTY
  31.   gTotalEmailToFields = 5
  32.   puppetSprite(31, 1)
  33.   sound(1).play(member("explosion"))
  34.   set the keyDownScript to "theKeyDown"
  35.   the timeOutList = []
  36. end
  37.